my meme inspiration i took inspiration from the drake part formate of
the meme keeping those elements in, and them change the subject, from
LGBQT to pointing adding in anime images and making fun of compsci
students
My meme details the lack of masculinity within males that take
compsci.
library(magick)
# Read the images from the URLs
Drake_nah <- image_read("https://cdn.discordapp.com/attachments/307428189020356608/1212378862986727424/image.png?ex=65f19ecd&is=65df29cd&hm=d2e5f67511e8484561e725094842ff154334eda496b617fdaa03b04e58e9d1d0&") %>%
image_scale(300)
Drake_yah <- image_read("https://cdn.discordapp.com/attachments/307428189020356608/1212380071592071188/image.png?ex=65f19fee&is=65df2aee&hm=c557c699849bfe7ce0373bf1d3e985e8db27f3604494271fa3270554efc2d085&") %>%
image_scale(300)
guys_irl <- image_read("https://images-wixmp-ed30a86b8c4ca887773594c2.wixmp.com/f/2f6ed149-c2f1-45b1-876c-0c26ccf7c2e2/dfw4wvo-a3c9af98-a621-4eeb-bffc-5ead4b300254.png?token=eyJ0eXAiOiJKV1QiLCJhbGciOiJIUzI1NiJ9.eyJzdWIiOiJ1cm46YXBwOjdlMGQxODg5ODIyNjQzNzNhNWYwZDQxNWVhMGQyNmUwIiwiaXNzIjoidXJuOmFwcDo3ZTBkMTg4OTgyMjY0MzczYTVmMGQ0MTVlYTBkMjZlMCIsIm9iaiI6W1t7InBhdGgiOiJcL2ZcLzJmNmVkMTQ5LWMyZjEtNDViMS04NzZjLTBjMjZjY2Y3YzJlMlwvZGZ3NHd2by1hM2M5YWY5OC1hNjIxLTRlZWItYmZmYy01ZWFkNGIzMDAyNTQucG5nIn1dXSwiYXVkIjpbInVybjpzZXJ2aWNlOmZpbGUuZG93bmxvYWQiXX0.Z5tVVFGh8k7vChBI9p9EbpWD9MKOMLhoaAFmMAzjIEA")%>%
image_scale(300)
guys_discord <- image_read("https://animeforums.net/uploads/monthly_2023_09/image.png.508006d3756622989a8577fe5378c8ef.png")%>%
image_scale(300)
guys_compsci <- image_read("https://m.media-amazon.com/images/I/61Vc8Hy82pL._AC_SL1000_.jpg") %>%
image_scale(300)
# Annotate the images with text using the impact font
guys_irl <- guys_irl %>%
image_annotate(text = "guys in real life",
color = "#000000",
size = 40,
font = "Impact",
gravity = "North")
guys_discord <- guys_discord %>%
image_annotate(text = "guys on discord",
color = "#000000",
size = 40,
font = "Impact",
gravity = "North")
guys_compsci <- guys_compsci %>%
image_annotate(text = "guys in compsci",
color = "#000000",
size = 40,
font = "Impact",
gravity = "North")
#combined final meme
final_meme <- c(top_row,middle_row, bottom_row) %>%
image_append(stack = TRUE)
# Create four different frames for the animation
# Frame 1: Drake_nah and guys_irl
frame1 <- c(Drake_nah, guys_irl) %>%
image_append() %>%
image_scale(600)
# Frame 2: Drake_nah and guys_discord
frame2 <- c(Drake_nah, guys_discord) %>%
image_append() %>%
image_scale(600)
# Frame 3: Drake_yah and guys_compsci
frame3 <- c(Drake_yah, guys_compsci) %>%
image_append() %>%
image_scale(600)
# Frame 4: Drake_yah and guys_compsci with a negate effect
frame4 <- c(Drake_yah, guys_compsci) %>%
image_append() %>%
image_scale(600) %>%
image_negate()
# Combine the frames into an animation using the image_animate function
animation <- c(frame1, frame2, frame3, frame4) %>%
image_animate(fps = 1) # set the frames per second
# Save the meme as an image file using the image_write function
image_write(final_meme, "my_meme.png")
# Save the animation as an image file using the image_write function
image_write(animation, "my_gif.gif")
I made 2 animated Gifs one gif animating the meme i made previously
and a new gif using the lyrics from Cascada everytime we touch .
library(magick)
# Read the images from the URLs
Drake_nah <- image_read("https://cdn.discordapp.com/attachments/307428189020356608/1212378862986727424/image.png?ex=65f19ecd&is=65df29cd&hm=d2e5f67511e8484561e725094842ff154334eda496b617fdaa03b04e58e9d1d0&") %>%
image_scale(300)
Drake_yah <- image_read("https://cdn.discordapp.com/attachments/307428189020356608/1212380071592071188/image.png?ex=65f19fee&is=65df2aee&hm=c557c699849bfe7ce0373bf1d3e985e8db27f3604494271fa3270554efc2d085&") %>%
image_scale(300)
guys_irl <- image_read("https://images-wixmp-ed30a86b8c4ca887773594c2.wixmp.com/f/2f6ed149-c2f1-45b1-876c-0c26ccf7c2e2/dfw4wvo-a3c9af98-a621-4eeb-bffc-5ead4b300254.png?token=eyJ0eXAiOiJKV1QiLCJhbGciOiJIUzI1NiJ9.eyJzdWIiOiJ1cm46YXBwOjdlMGQxODg5ODIyNjQzNzNhNWYwZDQxNWVhMGQyNmUwIiwiaXNzIjoidXJuOmFwcDo3ZTBkMTg4OTgyMjY0MzczYTVmMGQ0MTVlYTBkMjZlMCIsIm9iaiI6W1t7InBhdGgiOiJcL2ZcLzJmNmVkMTQ5LWMyZjEtNDViMS04NzZjLTBjMjZjY2Y3YzJlMlwvZGZ3NHd2by1hM2M5YWY5OC1hNjIxLTRlZWItYmZmYy01ZWFkNGIzMDAyNTQucG5nIn1dXSwiYXVkIjpbInVybjpzZXJ2aWNlOmZpbGUuZG93bmxvYWQiXX0.Z5tVVFGh8k7vChBI9p9EbpWD9MKOMLhoaAFmMAzjIEA")%>%
image_scale(300)
guys_discord <- image_read("https://animeforums.net/uploads/monthly_2023_09/image.png.508006d3756622989a8577fe5378c8ef.png")%>%
image_scale(300)
guys_compsci <- image_read("https://m.media-amazon.com/images/I/61Vc8Hy82pL._AC_SL1000_.jpg") %>%
image_scale(300)
# Annotate the images with text using the impact font
guys_irl <- guys_irl %>%
image_annotate(text = "guys in real life",
color = "#000000",
size = 40,
font = "Impact",
gravity = "North")
guys_discord <- guys_discord %>%
image_annotate(text = "guys on discord",
color = "#000000",
size = 40,
font = "Impact",
gravity = "North")
guys_compsci <- guys_compsci %>%
image_annotate(text = "guys in compsci",
color = "#000000",
size = 40,
font = "Impact",
gravity = "North")
#combined final meme
final_meme <- c(top_row,middle_row, bottom_row) %>%
image_append(stack = TRUE)
# Create four different frames for the animation
# Frame 1: Drake_nah and guys_irl
frame1 <- c(Drake_nah, guys_irl) %>%
image_append() %>%
image_scale(600)
# Frame 2: Drake_nah and guys_discord
frame2 <- c(Drake_nah, guys_discord) %>%
image_append() %>%
image_scale(600)
# Frame 3: Drake_yah and guys_compsci
frame3 <- c(Drake_yah, guys_compsci) %>%
image_append() %>%
image_scale(600)
# Frame 4: Drake_yah and guys_compsci with a negate effect
frame4 <- c(Drake_yah, guys_compsci) %>%
image_append() %>%
image_scale(600) %>%
image_negate()
# Combine the frames into an animation using the image_animate function
animation <- c(frame1, frame2, frame3, frame4) %>%
image_animate(fps = 1) # set the frames per second
# Save the meme as an image file using the image_write function
image_write(final_meme, "my_meme.png")
# Save the animation as an image file using the image_write function
image_write(animation, "my_gif.gif")
library(magick)
# Read the images from the URLs
anime_girl <- image_read("https://i.ytimg.com/vi/WlEpJZQsZeE/maxresdefault.jpg") %>%
image_scale(800)
anime_hand_hold <- image_read("https://i.pinimg.com/736x/ae/c1/b0/aec1b0fd66b63c4822b2f7a0ede46dde.jpg") %>%
image_scale(800)
anime_kiss <- image_read("https://encrypted-tbn0.gstatic.com/images?q=tbn:ANd9GcRoY7es475ODgvolvBuFjmP9wFTYIxSPTuHZw&usqp=CAU") %>%
image_scale(800)
anime_fly <- image_read("https://i.ytimg.com/vi/tsKJblBftoo/maxresdefault.jpg") %>%
image_scale(800)
anime_heart <- image_read("https://img.freepik.com/premium-photo/anime-girl-making-heart-with-her-hands-middle-street-generative-ai_1034058-1887.jpg?w=740")%>%
image_scale(800)
anime_blush <-image_read("https://i.ytimg.com/vi/Tq-a-ETev1o/maxresdefault.jpg")%>%
image_scale(800)
anime_summon <-image_read("https://static.wikia.nocookie.net/yugioh/images/c/cf/Dm_op1_voice_creditless.png/revision/latest?cb=20150509180949")%>%
image_scale(800)
# Annotate the images with text using the impact font
anime_hand_hold <- anime_hand_hold %>%
image_annotate(text = "Cause every time we touch",
color = "#000000",
size = 40,
font = "Impact",
gravity = "North")%>%
image_negate()
anime_girl <- anime_girl %>%
image_annotate(text = "I get this feeling",
color = "#000000",
size = 40,
font = "Impact",
gravity = "North")
anime_kiss <- anime_kiss %>%
image_annotate(text = "And every time we kiss",
color = "#000000",
size = 40,
font = "Impact",
gravity = "North")%>%
image_oilpaint
anime_fly <- anime_fly %>%
image_annotate(text = "I swear I could fly",
color = "#000000",
size = 40,
font = "Impact",
gravity = "North")
anime_heart <- anime_heart %>%
image_annotate(text = "Can't you feel my heart beat fast",
color = "#000000",
size = 40,
font = "Impact",
gravity = "North")
anime_blush <- anime_blush %>%
image_annotate(text = "I want this to last",
color = "#000000",
size = 40,
font = "Impact",
gravity = "North")
anime_summon <- anime_summon %>%
image_annotate(text = "Need you by my side",
color = "#000000",
size = 40,
font = "Impact",
gravity = "North")%>%
image_negate()
animation <- c(anime_hand_hold,anime_girl,anime_kiss,anime_fly,anime_heart,anime_blush,anime_summon) %>%
image_animate(fps = 0.5)
image_write(animation, "final_gif.gif")
@import url('https://fonts.googleapis.com/css2?family=Bangers&display=swap');
h2 {font-weight: bold;
text-decoration: underline;
}
body {background-color: #C3B1E1;
font-family: 'Bangers';
}